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Lisp Machine Macsyfna 



(Cl) (x+l)T6J 



<D1> 



<x + 1) 



(C2) expand(%); 

6 5 4 3 t 

<D2) X + 6 X + 15 X + 20 X ♦ IS X ♦ 6 X + 1 



(C3) diff(%,x)J 

5 4 

(D3) 6 X + 30 X 

<C4) factor(%); 

(04) 

( C5 ) l/(xt2+l); 

(05) 

(C6) i ntegrate(%,x) ; 

(06) 

(C7) l/(xT2-l) ; 

(07) 

(C8) i ntegrate(%,x) ; 

— More 0 i sp I ay? — 

Initial Macavna L I ataner 

2 1 'fsrrsr'XK - — HftcsvHffr 



3 2 

+ 60 X + 60 X ♦ 30 X + 6 



5 

6 (X 4 1) 



1 

■MMdrtLiHa 

2 

X + 1 



flTRN(X) 



1 



2 

X ■ - 1 



TYf 







Lisp Machine Macsyma 



(Cll) i/(xT3+l); 

l 

(Dll) 

3 

X ♦ 1 

( C12) i ntegrate(dll,x) ; 

2 X - 1 

2 ATAN< — ) 

LOGCX - X + 1) SORT < 3 ) LOGCX ♦ 1) 

(012) - + — * + 

6 &QRT(3) 3 



(C13) diff<dl2,x)5 

2 

(013) 



(2 X - 1) 

3 ( + 1 ) 

3 



2 X - 1 1 

.... ilWWt. ..— I——* ■rtlLliUia f ■ — ■ 

2 3 (X ♦ 1) 

6 (X - x + i) 



(C14) rats i mp(dl3) ; 



014) 



3 

X ♦ 1 



(C15) dl2 f x"2,nunier; 
015) 

(C16) B 



0.7877018573 



Initial Kacsyna Listener 




Thursday the hi fifteenth of June, 1980; 9:44:51 pn 




Macsyna Plot Ulndou 



Xnin a 0.0 Xnax a 16.0 Vnl n a -0*300 Vnax a 1.000 



(C3) plot(sln(K)/x,«,0.01, 15)} 

<D3) dOHE 

<C4) | X 

i 



Initial Macsyna Listener 






Thursday the nineteenth of June, 1980; 9:49:25 pn 




Macsyna Plot Ulndou 



vi eupt I ; 

( D6) 

(C7) vl eupt : [-10, -10, 4]; 
( D7) 

(C8) repl ot( true); 



[14, 0, 14.0, 3.5830403S] 



[- 10, - 10, 4] 



>>ERR0R: The argument RRRflY was X-3D, Which IS nbt an array 
While In the function ADJUST -ARRAY-SIZE «■ HIDE-flfelVE «• GRftPH 

ADJUST -ARRAY -SIZE: 

Arg -0 (RRRflY): X-3D 

flrg 1 (MEW-INDEX-LENGTH) : 1 

"0 

Initial Macsyna Listener 



26'\3/QQ 21 : 50 : 2 







(disscdlst r c715-ecx3) 

8015( stfro-cross 1 ng Irtter^val' densi ty of C71S-2CXS 



ase line y 



■jjgi I 



x int=<£ Da3enne y=w 

f*033ing irite^val' density of C154-2CXS 



asei i ne y 
cero-crossi ng interval' di'str i but 



x i nt=^ Dasei i ne y= 

cerb-cros-srhb irttenvaT density of C2-ZCXS 



x i nt = 
tt<RRT-Q-3lG 12704025> 



asei i ne y= 



;;; zero-crossing distn's of picl8 convolved with digna=.715, i»S4, and 2 

Qj-l-pj'-h o£- A^olu^r^ Co vwfo/oi)*^ , 



06/25/80 15:31 : 54 Keyboard USER: 





t v : u i ndow 



More above 

8' (METHOD TV:SELECT-MIXIN ALIAS-FOR-SELECTED-WlMDOWS) 
TV: BOPDERS-MIXIN-6QRDER-MARGIN-WIDTH-METHOD 
8' (METHOD TV: BORDERS-MIXIN BORDER-MARGIH-UIDTH) 

TV: WINDOW 

8 < FLAVOR T V : WINDOW I nternal -Info 320672> 

8 < DTP-SELECT -METHOD 2725646> 

Bottom of History 

Top of object 

TV.-WINDOW 
Value Is unbound 






Exit 
Return 
Mod i f y 
DeCache 
Clear 
Set s 



Function is unbound 

Property list: (SI: FLAVOR 8 < FLAVOR TV:WIND0W i nternal -Info 3206?2> SOURCE-FILE-NAME FILES:|RI: 
Package: 8<Package TELEVISION> 



Bottom of object 



#<FlAVOR TV:WINDOW Internal-info 320672) 



More above 



NRMED-STPUCTUPE-SY11B0L: 

SI : FLRVOR-INSTANCE-SIZE: 

SI : FLAVOR-BINDINGS: 

SI -.FLAVOR-SELECT -METHOD: 

SI : FLAVOR-NAME: 

SI : FLAVOR-LOCAL-INST ANCE-VRRIRBLES: 



SI .-FLAVOR 
55 

(8<DTP-L0CATIVE 5460620> 8<DTP-L0CPTIVE 5460702> 8<DTP- 
8 < DTP-SELECT -METHOD 272$646> 

TV:WIND0U 

MIL 



More below 
More above 



//<DTP -SELECT -METHOD 2725646) 
ACTIVATE: 

ALI AS-FOR-SELECTED-WINDOUS: 
APPEST : 

BASELINE: 

BEEP : 

BOPDEP-MARGIH-WIDTH: 

BORDERS: 

BREAK: 

BURY : 

CALL: 

CENTER-APOUND: 

CHAMGE-OF-SIZE-OR-MARGINS: 

CHARACTER-WIDTH: 

CLEAR-CHAR : 

CLEPR-EOF: 

CLEAR-EOL : 

CLEAR-INPUT : 

CLEAR-SCPEEN: 

COMPUTE-MOTION: 

DEACTIVATE: 

DEEXPOSE: 

DEEXPOSED-TYPEOUT-ACTION: 

DELETE-CHAR: 

DELETE-LINE: 

DESCRIBE: 

DESELECT: 

DOCUMENT : 

DRAW-LABEL: 

DRAW-LINES: 



TV: WIIIDOM-COMBlllED-ACTlVATfe-METHOD 
TVtSELECT-MIXlN-ALIAS-FOR-feELECTED-UINDOWS-METHOD 
TV: SELECT-MI XIN-ARREST-METHOD 



TV 

TV 

TV 

TV 

TV 

TV 

TV 

TV 

TV 

EZ 



TV 

TV 

TV 

TV 

TV 

TV 

TV 

TV 

TV 

TV 

TV 

SI 

TV 

TV 

TV 

TV 



STREAM-MIXIM-BASELlriE-lifeTHOD 

SHEET-BEEP-METHOD 

BORDERS-MiXlH-BORDER-MARGIN-WIDTH-METHOD 

BORDERS-MtXlM-BORDERS-HfeTHOD . . 

SELECT -MIXIN-BREAK-METHoD 

UiriDOW-COMBIMED-BURY-HETHOD 

SELECT -MI XI M-CALL-MET HOb 

ESSENTIAL-SET-EDGES-CErlTER-AROUND-METHOD 

SHEET-CHAMGE-OF-SIZE-dR-MARGINS-METHOD 

S ri Eh o rxi n - ch a f h ctee -ti i g t h-metruh 
stP.eam-mixim-clear-chrr-method 
stream-mixin-clear-eof-Hethod 
stream-mixin-clear-eol-method 

STREAM-MIXIM-CLEAR-IMPUT-METHOD 

sheet-clear-screeh-metHod 

STREAM-MlXIM-COMPUTE-HdTION-METHOD 

HIUDOU-COMBIHED-DEACTldPTE-METHOD 

wimdow-conbiiied-deexpOsP-method 

SHEET-DEEXPOSED-TYPEOllt-RCTIOH-METHOD 

strebm-mixih-delete-cHAR-hethod 

ST REAM-MI XIH-DELETE-LirlE-MET HOD 

VAMILLA-FLAVOR-DESCRI0E-I1ETHOD 

HIIIDOH-COMBIHED-DESELECT -METHOD 

ESSEMTIAL-MOUSE-DOCUMENT-METHOD 

LABEL-MIXIN-DRAU-LABEL-METHOD 

STREAM-MIXIM-DRAU-LINES-METHOD 



06^25/80 23:07:38 Keyboard 



USER: 



More below 

ruHZ 




20 


MOVE D-PDL ' 1 




21 


x RRGIO 


; HUMBER 


22 


MOVE D-RETURH PDL-POP 




23 


MOVE D-PDL LOCAL | 0 


; NUMBERS 


24 


MOVE D-PDL RRGIO 


; HUMBER 


25 


POP L0CRLI2 


; AMS 


26 


POP LOCAL | l 


; NUMBERS 


27 


BR 35 




30 


MOVE D-PDL LOCAL |2 


; AMS 


31 


CAP D-PDL LOCAL |l 


; NUMBERS 


32 


/ PDL-POP 




33 


POP LOCAL |2 


; AMS 


34 


SETE-CDR LOCAL I 1 


; NUMBERS 


35 


MOVE D-IGHOPE LOCAL |1 


; NUMBERS 



More Groove 



BR-HOT-HIL 39 



B < St ack-Frane ✓ PC=33> 



Mon below 



flrqs : 

Arg 0 < SI : NUMBER) : 1 
Rest arg ( SI : NUMBERS) : (0) 



Locals: , 

Local 1 (SI : NUMBERS) : (0) 
Local 2 (SIjAKs): 1 



Bottom of stock 

(SI: PROCESS-TOP-LEVEL MIL) 

( HZMEI : ZMRCS-MINDOM-TOP-LEVEL) 

( tt<ZMFIC3-T OP-LEVEL-EDIT OR 11441 756> :EDIT) 

( ( : METHOD MZI-IEI : EDI TOR : EDIT ) : EDIT ) 

( HZMEI : PROCESS-COMMAHD-CHAR 1033) 

(HZMEI : COMMA! ID-EXECUTE HZMEI : COM-EVALUflT E-MINI-BUFFER 1033 NIL NIL ...) 
( HZMEI : COM-EVALUATE-HI HI -BUFFER) 

( HZMEI : EVRLUATE-MIHI -BUFFER) 

(SI: *EVAL (// 1 0)) 

10) 

Top of stock 



What Error 


Rr 9 list 


Retry 


Set ara 


T 


Quit one level 


Inspect 


Return a value 


Search 


NIL 


Ex i t 


Edit 


Cont ihue 


Throw 




> > > > T RAP 740A (DIVIDE 
There was an attempt 


-BY-ZERO) 
to divide a 


number by zero in *QUO. 







0b>'25''W0 23:11 :08 JLI 




This is band 1 of Pack T300 R, with microcode 669, system 29. 9^ NUS 
LISP Machine One 

(cc) 

Getting fresh state from machine. 

**?? stkp STKP?? ?? ?? ?? ?? :stkp 

1747552 1003 [3006] 

-3 : stkp 

104202 tt< DTP-FEF-POINTER GLEVRL 1575774>[0] QUOTE-BASE T 

104173 tt<DTP-FEF-POINTER LRP-QUOTE-RDR 1575465>[7l] (FUNCTION ^ERROR) 

104164 tt<DTP-FEF-POINTER LRP-UORD-EVRL 157571 1 > [123] ( (QUOTE-UECTOR (FUNCTION FERROR))) . 

104152 tt<DTP-FEF-POINTER QLP2-U 1 574405> [1 35] (CRlL D-RETURN (bUOTE-VECTOR (FUNCTION FERROR))) 
usp^ 20 QMLP * 40000 - ' 

1«?U/ ( QICDR 2) 

2f?U/ QMD 
3i?IV ( 0CDR3 2) 

4i?U/ ( PGF-L2R 1) 

5i?U/ SPHT1 
60U/ SPHTl 
7ralV SPHTl 

10f?U/ (RURIT-DISK 2) , 

119U/' INTRK2 

1201V INTRH2 

130U/ ( PGF-R 3) 

140U/ ( PGF-MAP-MISS 3) 

150U' SPHTl 

1601V SPHTl 

1 70U'' SPHTl 

200'V OMLP ♦ 40000 

2K9U/ ( QMEX1 4) 

2201V OCRR 

2301V ( BEG06 1) 

24i?U/ ( BEG06 1) 

250U/ ( BEG06 1) 



ttttttttttttttttttttttttttttttttttttttttxttttxi 
PC=3034 OBUS=l 0400001 77 (QMEX1 4) 

IR=( JUMP-IF-BIT-CLEAR (BYTE-FIELD l 12) N-FLRGS iLLOP) 
ERROR-STATUS NO-OP IR48 RNY-ERR XBUS-NXM-ERR XBUS-PflRITY-ERR 



USER: RUH 



06^21^80 16:30:43 Keyboard 







; excerpt fron Chopin Nocturne Op. 15, No. 3 

( d i sp I ay-nus i c * ( 

( ( tr*b I e 2 flat 3 4) 

Q 2 c]ae<? 4 aec 2 fd«[ 4 bgd ae<?c g a 2 fda[ 4 ge®c 

2 afc 4 c]gc 2 c]ae<3 4 d]af 2 d]bg 4 e]8cjg 2 f]c]a* 

C-OREX > MUSIC: pi: 

WEI ZMRCS (LISP) SCOPEX > MUSIC; Ms 

4 f[ f[ e[<? a[ at d[ gE gC c[ f[ f[[ e[[8 

dCC e[[@ aCC 2 d[[ 4 a[[ d[[ a[[ d[ 2 g[[ 4 d[ 

gCC aCC d[ 2 cC 4 f[ g[[ a[[ gCC 2 c[ 4 f[ ) 

JLK MUZflCS : TYI 






\ OO u VI’ ) ) 

( ( > x x-l I ml t) ) 

(do ((y 0 (1+ y))) 

'((i y y-llnlt) ) 

( as-2 (Fix (* 120. (// (sin (✓/ (♦ ( A x 2) ( A y 2)) I8&0.)) 

(♦ 1 (// (♦ ( A x 2) ( A y 2)) I0fe0.))))> tuo-D-array * y>>>>> 

(oetq plcture-nenu 

( tv: wl ndow-create * tv:nonentary-nenu 

* : I ■ten-list '(big-sphere dunce-cap inclined-plane randonness ripples saddle 
snail-sphere surface-twi ster help) 

*:font-nap (list fontsjblgfnt))) 

(defun pi cture-w» ndou-l nput-funct I on(&aux (Input (tyl))) 

(selectg input 

((321. 353.) (*throw 'top-level nil)) 

((134. 63.) 

(<- our-window ':cleai — screen) 

( <- oui — window ': hone-cursor) 

(princ picture-help-1 lst)(tyi ) 

( <- oui — window ':clear — screen)) 

HRRMD > XCONOS; RI : 

ZtlfiCS (LISP) XRflND > ^CONOS; 01: - 




06^19^80 14:39:18 HCONOS 



USER: 



RUii_ 



Process Mane 



State 



TOP-PROCESS 
Mouse 
Chaos 
Screenl 
Mouse 
2MRCS-I 
SUPDUP 
SUPDUP 



Keyboaq 

System 

PEEK-1 



Clock 
8LINKE1 



Pet I ve 



TYI 

j-utinurja. 



LISP-LI3 



This Is some text which has been typed Into this 
editor buffer. 



An alttrrutir* font is tints fonm 8 pt or 

perhaps an italic typtfcnl it fnon desirable til this case, 

and, for emphAsis, thtr* il timts rtmtft Mil 



ZMPCS-UINDOW-4 



Connect to host: ee 



Rrgl I st 

Edit Definition 



List Callers 
List Functions 
List Buffers 
Kill Or Save Buffers 
SdI i t Screen 

Indent Region 
Change Default Font 
Change Font Region 
Uppercase Region 
Lowercase Region 
Mouse Indent Rigidly 
Mouse Indent Under 



MIT-EECS, TOPS-20 Monitor 4(1 )-l 
There are 2+2 Jobs and the load av. is 



0.66 



flutol ogout 

Logout Job 10, TTY 114, 
at l-Jul-80 17:44:54, 
**M0RE**1 
TELMET — ee 



Used 0:00:00 in 0:05:01 



ZMflCS (Text Electric Shift-lock) BUFFER-2 Font! A (CPTFONT) 
Font ID: fl (CPTFOMT ) 

07/0U80 17:47:42 JLK USER: FUN 






LISP-LISTENER-2 



;;;Hindows that hack the network -« 

(DEFFLAUOR BUFFERED-OUT PUT -MI XI N ( (| 

() 

( : REQUIRED-METHODS :BUFFERED-TVO)i 

( DEFNETHOD ( BUFFERED-OUT PUT -MlklH 
Q (DO () ( ( ARRAY -PUSH OUTPUT-BUFFEFj 
(FIJMCRLL-SELF ' : FORCE-OUTPUT )) )| 

( DEFNETHOD ( BUFFERED-OUTPUT-MIXIN 
( TV:SHEET-STRIUG-OUT SELF OUTPUT 
(STORE-RRRRY-LEADER O OUTPUT-BUFF| 

( DEFFLFIVOR BRSIC-MVT 

(ESCAPE-CHAR 
(ESCRPE-CHRR-1 tt\BRERK) 
( CONNECTION MIL) 
(COMMECT-TO MIL) 

STRERN 

( TERMINAL-STREAM MIL) 

(TYPEOUT -PROCESS NIL) 

( TYPEIM-PROCESS MIL) 
(OUT PUT -LOCK MIL) 
(PETUPM-TO-CALLER MIL) 
SUPDUP > LMWIM: RI: 



Argl ist 

Edit Definition 
List Callers 
List Functions 
List Buffers 
Kill Or Save Buffers 
Split Screen 



E 



JU 



Ena 



Indent Region 
Change Default Font 
Change Font Region 
Uppercase Region 
Lowercase Region 
House Indent Rigidly 
Mouse Indent Under 



-p—y 



PDUP"-*- 

RY NIL 'ART-STRING 200 NIL ' (0) ) ) ) 



— ' .THir-'jt 1 V. 1 — ' i n hOt character set 
Sane in Lisp nachln# Character set 
The connection itself 

Host to connect to ( f Or TYPEIM-TOP-LEVEL) 
fl streaM to the about 

Strean For output. If NIL, (which Is the usual case) 
output to SELF. 

Network -* screen 
Keyboard *♦ network 

Sone typeout occurs lh TYPEIM-PROCESS 

Set to T when :TYPEIN*T0P-LEUEL should return 



ZMACS (LISP) SUPDUP > LMI-IIM; HI: 



RUM 



06^25/80 22:51 : 16 JLK 



SUPDUP: 




UM*t> 



Create 

Select 

Inspect 

Trace 

Split Screen 
Lavouts 



Other 



LISP-LISTENER-2 






;;;Ufndows that hack the network Mode-.LISP; Package : SUPDUP **- 

(DEFFLAVOR BUFFERED-OUTPUT-NIXIN ((OUTPUT-BUFFER (MAKE-ARRAY Hit * RRT-STRING 200 NIL '(8)))) 

() 

( : REQUIRED-METHODS : BUFFERED-TVO) ) 

(DEFMETHOD (BUFFERED-OUTPUT-NIXIN :BUFFERED-TYO) < CM) 

(DO () ( ( ARRAY -PUSH OUTPUT-BUFFER CH)) 

(FUNCRLL-SELF ': FORCE-OUTPUT )) ) 

(DEFMETHOD (BUFFERED-OUTPUT-NIXIN .-FORCE-OUTPUT) 0 
(TV: SHEET-STRING-OUT SELF OUTPUT-BUFFER) 

(STORE-flRRRY-LERDER 0 OUTPUT-BUFFER 0)) 



(DEFFLAVOR BRSIC-NVT 

(ESCAPE-CHAR 
(ESCRPE-CHRR-1 BsBREAK) 
(CONNECTION NIL) 
(COIIHECT-TO NIL) 

STREAM 

(TERMINAL-STREAM NIL) 

(TYPEOUT-PROCESS NIL) 
(TYPEIN-PROCESS NIL) 
(OUTPUT-LOCK NIL) 
(RETURN-TO-CALLER NIL) 
SUPDUP > LMWIN; AI : 

ZNACS (LlSP) SUPDUP > LMWIM; RI : 



Escape character In nvl character set 
Sane in Lisp nachine character set 
The connection itself 

Host to connect to (for TYPEIN-TOP-LEVEL) 
fl stream to the abovC 

Stream for output. If NIL, (which is the usual case) 
output to SELF. 

Network ■» screen 
Keyboard •* network 

Some typeout occurs In TYPEIN-PROCESS 

Set to T when : TYPEIN-f OP-LEVEL should return 



06/25/80 22:53:05 Keyboard USER: RUN 




a 




* Bury 
Expose 
Kill 
Qu it 
Undo 

Move window 
Reshape 

Move single 
Expand window 
Expand all 




jLISP-LISTEMER-2 

I;;; Windows that hack the network (1ode:LISP; Package jSUPDUP 



(DEFFLRVOR BUFFERED-OUTPUT-MIXIN ( (OUTPUT -BUFFER (MAKE-fiRRRV HIL * RRT-STRIMG 200 NIL *(0)))> 

() 

( : REQUIRED-METHODS : BUFFERED-TYO) ) 






(DEFNETHOD ( BUFFERED-OUTPUT-MIXIM : BUFFERED-TYO) (CH) 
Q (DO () ( ( RRRRY-PUSH OUTPUT-BUFFER CH)) 

( FUMCRLL-SELF ’ : FORCE-OUTPUT )) ) 



( DEFNETHOD (BUFFERED-OUTPUT-MIXIM : FORCE-OUTPUT ) O 
(TV: SHEET -ST RIMG-QUT SELF OUTPUT-BUFFER) 
(STORE-flRRRY-LEflDER 0 OUTPUT -BUFFER 0)) 




(DEFFLflVOR BflSIC-HVT 

(ESCRPE-CHRR 
(ESCRPE-CHRR-1 ttsBRERK) 
( CONNECTION NIL) 
(COHIIECT-TO NIL) 

STREAM 

( TERMINAL-STREAM NIL) 

(TYPEOUT -PROCESS MIL) 
(TYPEIM-PROCESS MIL) 
(OUTPUT -LOCK MIL) 
(RETIJRM-TO-CRLLER MIL) 
SUPDUP > LNUIU; RI : 

(LISP) SUPDUP > LMWIlij til: 



Escape character I ft hvt character set 
Sane in Lisp nachiftfc character set 
The connection itself 

Host to connect to (for TYPEIN-TOP-LEVEL) 
fl strean to the abdv§ 

Strean for output, if NIL, (which is the usual case) 
output to SELF. 

Metwork * screen 
Keyboard ■* network 

Sone typeout occurs In TYPEIM-PROCESS 

Set to T when : TYPEtN-TOP-LEVEL should return 



06/25^80 22:53:39 Systen Menu USER: 



Me nu chops 




Libraries 


Nodules 


Ui ews 


(Other Commands! 


Other View 


Previous View 


Scale 


Hardcopy 


Cr i t i c i ze 


Labelled-Text Mode 


Box Mode 



REPP BUS 



IL 

=1C OUT 
<R OUT 
IN OUT 



PADS 



ONTO CHIP 



OFF CHIP 



PH2 

WRITE BUS 
REPP BUS 



PH2 

WRITE BUS 









PL 


J Punct i ons 






C: 


ToTT 


, RCC. 


Carry) 








R* 


C, B 


♦c. 


B 


sh left, 


B 


sh 


r I ght 


R* 


B*C, 


P- 


e- 


1*C, -0-1 


♦C 




fl 


xor 


B, 


p 


and B, A 


i or 


B 


; 7 



PHI - Read register, do PLU 
PH2 - write register, next state 



Fodv <123, Q) . SLOCK-?CHEMflTIC '■>!»'.) of DATA PATHS? moduli of PPP-lQ CHIP library 

Ed i t Def i n i t i on Edit Body List properties 



Mouse: Move body Cursor to nouse 

Q 

Loading file PI: MOONDR; TEN DRAW into package DRAW 
Body node . 

06^25^80 23:29:02 JLK 05e£ 1 TVl 




READ BUS 




ALU Functions 



C:{0,1, ACC. Carry} 

A+c, B+C, B sh left, B sh right 
A+B+C, A-B-l+C, -B-l+C 
A xor B, A and B, A lor B ;? 



■aijanrisii 



9 































( : spr I nter u2) 

( RSSIGN-TO-MY U2 

(RUN (FROM (PT 0 0)) 

(RUN-LRYER 'POLY) 

(JOG-X (PT 10 10)) 

(SRVE-CP CP) 

( *K 10) 

(FROM (THE 'CP *THE-WIRE*) ) 
(RUN-LRYER 'DIFF) 

(JOG-X (PT 0 20)) 

(FROM (THE 'CP *THE-UIRE*)) 
(RUN-LRYER 'DIFF) 
(RUN-WIDTH 2) 

(JOG-Y (PT 10 20)))) 

T 



06/19/80 17:14:20 Batal I DPL: 








VIEW-1 Buff«r • THE -CHIP Pojition « (C-P 50. -24.1 Sc*l« ■ 4. Ctnt«r * r<J?P 10. -4. 





Current l*y«r • POLY Vl<»w * bw-ri«w 

S«Ucttd-in»t*nct > #<REPLICATION-ARRAY 3071055.^ 



Cufrtnt Buffer • THE -CHIP 



DIFFUSION 



IMPLANT 



CONTACT -CUT 



CHANNEL 



NAME-POINT 
EDIT -TYPE 
STRETCH 
BUT -CUT 
STOP 



UNGROUP 

BEGIN-TYPE 

PARAMETERS 

CUT 



GROUP 

KILL-BUFFER 

REPLICATE 

LABEL 



UN-SELECT 

GOTO-BUFFER 

ROLE-NAME 

SET-VIEW 



SELECT 

XFRM 

INSTANTIATE 

NEW-VIEW 



DELETE 

COPY 

WIRE 

REFRESH 



EVAL-BUFFER 
MOVE [V 

BOX 1 

CLEAN 



STOP 



Set the value of which of these parameters ? 



Y-DItt 


19.0 


X-DIM 


6.0 


PUZ 


4.0 


PDZ 


1.0 


EL 


2.0 


DU 


2.0 



DRED-INTERflCTION-PRNE-1 



3:02 Keyboard 










The NAMES ares 









Tinker EDIT menu 



CALL a function 
Fill in an ARGUMENT 



EVALUATE something 



X 



NEW# 



-smmn.or r&sm 



TYPEIN and EVAL 
TYPEIN, but DON’T EVAL 
Make a CONDITIONAL 
Edit TEXT 
Edit DEFINITION 



Step BACK 
UNFOLD something 
COPY something 
DELETE something 
Escape to LISP 
RETURN a value 



Defining (HISTORY): 



Example: (3 2 1), Code: (REVERSE (LIST 123)) 
Example: B, Code: (2ND (QUOTE (A B C))) 
Example: Y, Code: (2ND (QUOTE (X Y Z))) 
Example: NIL, Code: (SEARCH (QUOTE HENRY) NIL) 
Code: (SEARCH (QUOTE HENRY) (QUOTE (HENRY CARL))) 



Type some code: 

(SEARCH ’HENRY '(HENRY CARL)) 

1 




Hi story 





ZUEI ZMRCS (LISP Electric ShiFt-lock) History Font: R (TRl28) 
Control -Meta- . is not a defined key. 



Henry 



USER: 



Menu ch oos e 






